home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / demos / balancing.e < prev    next >
Text File  |  2004-08-03  |  3KB  |  86 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF app,win,g,b,font
  7.  
  8.    font := 'Garnet/16'
  9.  
  10.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  11.       app := AppObject,
  12.          FA_Application_Title,        'Balancing',
  13.          FA_Application_Version,      '$VER: Balancing 1.00 (23-09-02)',
  14.          FA_Application_Copyright,    '©2000-2002, Olivier Laviale',
  15.          FA_Application_Author,       'Olivier Laviale - (lotan9@aol.com)',
  16.          FA_Application_Description,  'Show balancing groups',
  17.          FA_Application_Base,         'BALANCING',
  18.  
  19.          Child, win := WindowObject,
  20.             FA_ID,           "MAIN",
  21.             FA_Window_Title, 'Feelin : Balancing',
  22.             FA_Window_Open,   TRUE,
  23.  
  24.             Child, g := VGroup,
  25.                Child, VGroup,
  26.                   Child, HGroup,
  27.                      Child, colorbutton('c:FF0000,0:8','Red'),
  28.                      Child, colorbutton('c:FFFF00,0:8','Yellow'),
  29.                      Child, BalanceID("BAL1"),
  30.                      Child, colorbutton('c:00FF00,0:8','Green',[FA_SetMax,FV_SetMax,NIL]),
  31.                      Child, colorbutton('c:00FFFF,0:8','Cian'),
  32.                      Child, colorbutton('c:0000FF,0:8','Blue'),
  33.                   End,
  34.  
  35.                   Child, BalanceID("BAL2"),
  36.  
  37.                   Child, HGroup, FA_MaxWidth,300,
  38.                      Child, colorbutton('c:FFFFFF,0:8','White',[FA_ColorScheme,',,,c:000000', NIL]),
  39.                      Child, BalanceID("BAL3"),
  40.                      Child, colorbutton('c:000000,0:8','Black',[FA_ColorScheme,',,,c:FFFFFF', NIL]),
  41.                   End,
  42.  
  43.                   Child, colorbutton('c:FF00FF,0:8','Magenta'),
  44.                End,
  45.  
  46.                Child, VGroup,
  47.                   Child, Bar,
  48.  
  49.                   Child, b := TextObject,
  50.                      FA_InputMode,        FV_InputMode_Toggle,
  51.                      FA_SetMax,           FV_SetMax,
  52.                      FA_Frame,            '0:21.06030603,03.06030603',
  53.                      FA_Back,             '0:3,0:7',
  54.                      FA_Text,             'T_oggle FA_Balance_QuickDraw',
  55.                      FA_Text_PreParse,    '<pens shadow=halfshadow up=shine>',
  56.                      FA_Text_AltPreParse, '<pens text=shine>',
  57.                      FA_Text_VCenter,     TRUE,
  58.                   End,
  59.                End,
  60.             End,
  61.          End,
  62.       End
  63.  
  64.       IF app
  65.          F_DoA(b,FM_Notify,[FA_Selected,FV_Notify_Always,g,FM_Set,4,'FA_Balance_QuickDraw',FV_Notify_Value,FA_Group_Forward,TRUE])
  66.          F_DoA(win,FM_Notify,[FA_Window_CloseRequest,TRUE,app,FM_Application_Shutdown,0])
  67.          F_DoA(app,FM_Application_Run,NIL)
  68.          F_DisposeObj(app)
  69.       ENDIF
  70.  
  71.       CloseLibrary(feelinbase)
  72.    ENDIF
  73. ENDPROC
  74.  
  75. PROC colorbutton(ispec,label,tags=NIL)
  76.    RETURN TextObject,
  77.           FA_Back,            ispec,
  78.           FA_InputMode,       FV_InputMode_Release,
  79.           FA_Font,            'Garnet/16',
  80.           FA_Text,            label,
  81.           FA_Text_VCenter,    TRUE,
  82.           FA_Text_PreParse,   '<align=center>',
  83.           TAG_MORE,           tags,
  84.           End
  85. ENDPROC
  86.